home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (Latin America) Volume 1 #6 / CD-ROM Today 6 Latam.iso / referenc / dor / fe.dxr / 00096.ls < prev    next >
Encoding:
Text File  |  1996-11-14  |  385 b   |  13 lines
  1. on exitFrame
  2.   if the lineCount of member "address" > 5 then
  3.     beep()
  4.     if line 5 of field "address" <> EMPTY then
  5.       put line 5 of field "address" & line 6 of field "address" into line 5 of field "address"
  6.     end if
  7.     delete line 6 of field "address"
  8.     set the selStart to length(field "address")
  9.     set the selEnd to length(field "address")
  10.   end if
  11.   go(the frame)
  12. end
  13.